100 PRINT "TURBOLOAD/VDOS CREATOR..."
110 OPEN 15,8,15:POKE 252,100:POKE253,09
120 DATA !,!.INSTRUCTIONS,END
130 READ F$:IF F$="END" GOTO 200
140 PRINT "CREATING FILE ";CHR$(34);F$;CHR$(34)
150 OPEN 8,8,8,"0:"+F$+",P,W"
160 INPUT#15,E,E$,E1,E2:IF E THEN PRINT E$
170 SYS 2375
180 INPUT#15,E,E$,E1,E2:IF E THEN PRINT E$
190 CLOSE 8:GOTO 130
200 CLOSE 15
210 PRINT "BE SURE TO READ THE INSTRUCTION FILE!"